﻿Imports System.Windows.Forms

Public Class MDIsistemaRC

    Private m_frmRolesFunciones As FormRolesFuncionesUsuarios
    Public Property formRolesFunciones() As FormRolesFuncionesUsuarios
        Get
            Return m_frmRolesFunciones
        End Get
        Set(value As FormRolesFuncionesUsuarios)
            m_frmRolesFunciones = value
        End Set
    End Property

    Private m_frmLOG As FormLogListado
    Public Property formLOG() As FormLogListado
        Get
            Return m_frmLOG
        End Get
        Set(value As FormLogListado)
            m_frmLOG = value
        End Set
    End Property

    Private m_frmBK As FormBackup
    Public Property formBK() As FormBackup
        Get
            Return m_frmBK
        End Get
        Set(value As FormBackup)
            m_frmBK = value
        End Set
    End Property

    Private m_frmPago As FrmPagos
    Public Property formPago() As FrmPagos
        Get
            Return m_frmPago
        End Get
        Set(value As FrmPagos)
            m_frmPago = value
        End Set
    End Property

    Private m_frmPagoListado As FormPagosListado
    Public Property formPagoListado() As FormPagosListado
        Get
            Return m_frmPagoListado
        End Get
        Set(value As FormPagosListado)
            m_frmPagoListado = value
        End Set
    End Property

    Private m_frmUsuario As Frmusuario
    Public Property formUsuario() As Frmusuario
        Get
            Return m_frmUsuario
        End Get
        Set(value As Frmusuario)
            m_frmUsuario = value
        End Set
    End Property

    Private m_frmUsuarioListado As FormUsuarioListado
    Public Property formUsuarioListado() As FormUsuarioListado
        Get
            Return m_frmUsuarioListado
        End Get
        Set(value As FormUsuarioListado)
            m_frmUsuarioListado = value
        End Set
    End Property

    Private m_frmListMovMateriales As FormMovMaterialesListado
    Public Property frmListMovMateriales() As FormMovMaterialesListado
        Get
            Return m_frmListMovMateriales
        End Get
        Set(value As FormMovMaterialesListado)
            m_frmListMovMateriales = value
        End Set
    End Property

    Private m_frmEntradaMateriales As FrmEntradaMateriales
    Public Property frmEntMateriales() As FrmEntradaMateriales
        Get
            Return m_frmEntradaMateriales
        End Get
        Set(value As FrmEntradaMateriales)
            m_frmEntradaMateriales = value
        End Set
    End Property

    Private m_frmSalidaMateriales As FrmSalidaMateriales
    Public Property frmSalMateriales() As FrmSalidaMateriales
        Get
            Return m_frmSalidaMateriales
        End Get
        Set(value As FrmSalidaMateriales)
            m_frmSalidaMateriales = value
        End Set
    End Property

    Private m_frmEntradaProductos As FrmEntradaProductos
    Public Property frmEntProductos() As FrmEntradaProductos
        Get
            Return m_frmEntradaProductos
        End Get
        Set(value As FrmEntradaProductos)
            m_frmEntradaProductos = value
        End Set
    End Property

    Private m_frmSalidaProductos As FrmSalidaProducto
    Public Property frmSalProductos() As FrmSalidaProducto
        Get
            Return m_frmSalidaProductos
        End Get
        Set(value As FrmSalidaProducto)
            m_frmSalidaProductos = value
        End Set
    End Property

    Private m_frmListMovProductos As FormMovProductosListado
    Public Property frmListMovProductos() As FormMovProductosListado
        Get
            Return m_frmListMovProductos
        End Get
        Set(value As FormMovProductosListado)
            m_frmListMovProductos = value
        End Set
    End Property

    Private m_frmActPedido As FrmActPedido
    Public Property frmActPedidos() As FrmActPedido
        Get
            Return m_frmActPedido
        End Get
        Set(value As FrmActPedido)
            m_frmActPedido = value
        End Set
    End Property

    Private m_frmPedidoNListado As FormPedidosNListado
    Public Property frmPedidoNListado() As FormPedidosNListado
        Get
            Return m_frmPedidoNListado
        End Get
        Set(value As FormPedidosNListado)
            m_frmPedidoNListado = value
        End Set
    End Property

    Private m_frmPedidoN As FrmPedidosN
    Public Property frmPedidoN() As FrmPedidosN
        Get
            Return m_frmPedidoN
        End Get
        Set(value As FrmPedidosN)
            m_frmPedidoN = value
        End Set
    End Property

    Private m_frmOrdenCompra As FrmOrdenCompra
    Public Property frmOrdenCompra() As FrmOrdenCompra
        Get
            Return m_frmOrdenCompra
        End Get
        Set(value As FrmOrdenCompra)
            m_frmOrdenCompra = value
        End Set
    End Property

    Private m_frmOrdenCompraListado As FormOrdenCompraListado
    Public Property frmOrdenCompraListado() As FormOrdenCompraListado
        Get
            Return m_frmOrdenCompraListado
        End Get
        Set(value As FormOrdenCompraListado)
            m_frmOrdenCompraListado = value
        End Set
    End Property

    Private m_frmCobros As FrmCobros
    Public Property frmCobros() As FrmCobros
        Get
            Return m_frmCobros
        End Get
        Set(value As FrmCobros)
            m_frmCobros = value
        End Set
    End Property

    Private m_frmCobrosListado As FormCobrosListado
    Public Property frmCobrosListado() As FormCobrosListado
        Get
            Return m_frmCobrosListado
        End Get
        Set(value As FormCobrosListado)
            m_frmCobrosListado = value
        End Set
    End Property

    Private m_frmCompras As FrmCompras
    Public Property frmCompras() As FrmCompras
        Get
            Return m_frmCompras
        End Get
        Set(value As FrmCompras)
            m_frmCompras = value
        End Set
    End Property

    Private m_frmComprasListado As FormComprasListado
    Public Property frmComprasListado() As FormComprasListado
        Get
            Return m_frmComprasListado
        End Get
        Set(value As FormComprasListado)
            m_frmComprasListado = value
        End Set
    End Property

    Private m_frmVentas As FrmVentas
    Public Property frmVentas() As FrmVentas
        Get
            Return m_frmVentas
        End Get
        Set(value As FrmVentas)
            m_frmVentas = value
        End Set
    End Property

    Private m_frmVentasListado As FormVentasListado
    Public Property frmVentasListado() As FormVentasListado
        Get
            Return m_frmVentasListado
        End Get
        Set(value As FormVentasListado)
            m_frmVentasListado = value
        End Set
    End Property

    Private m_frmProveedor As FrmProveedores
    Public Property frmProveedores() As FrmProveedores
        Get
            Return m_frmProveedor
        End Get
        Set(value As FrmProveedores)
            m_frmProveedor = value
        End Set
    End Property

    Private m_frmProveedoresListado As FormProveedoresListado
    Public Property frmProveedoresListado() As FormProveedoresListado
        Get
            Return m_frmProveedoresListado
        End Get
        Set(value As FormProveedoresListado)
            m_frmProveedoresListado = value
        End Set
    End Property

    Private m_frmTipoProd As FrmTipoProd
    Public Property frmTipoProd() As FrmTipoProd
        Get
            Return m_frmTipoProd
        End Get
        Set(value As FrmTipoProd)
            m_frmTipoProd = value
        End Set
    End Property

    Private m_frmTipoProdListado As FormTipoProdListado
    Public Property frmTipoProdListado() As FormTipoProdListado
        Get
            Return m_frmTipoProdListado
        End Get
        Set(value As FormTipoProdListado)
            m_frmTipoProdListado = value
        End Set
    End Property

    Private m_frmServicio As FrmServicios
    Public Property frmServicios() As FrmServicios
        Get
            Return m_frmServicio
        End Get
        Set(value As FrmServicios)
            m_frmServicio = value
        End Set
    End Property

    Private m_frmProducto As FrmProductos
    Public Property frmProductos() As FrmProductos
        Get
            Return m_frmProducto
        End Get
        Set(value As FrmProductos)
            m_frmProducto = value
        End Set
    End Property

    Private m_frmCliente As FrmClientes
    Public Property frmClientes() As FrmClientes
        Get
            Return m_frmCliente
        End Get
        Set(value As FrmClientes)
            m_frmCliente = value
        End Set
    End Property

    Private m_frmServicioListado As FormServiciosListado
    Public Property frmServicioListado() As FormServiciosListado
        Get
            Return m_frmServicioListado
        End Get
        Set(value As FormServiciosListado)
            m_frmServicioListado = value
        End Set
    End Property

    Private m_frmClienteListado As FormClientesListado
    Public Property frmClienteListado() As FormClientesListado
        Get
            Return m_frmClienteListado
        End Get
        Set(value As FormClientesListado)
            m_frmClienteListado = value
        End Set
    End Property

    Private m_frmProductoListado As FormProductosListado
    Public Property frmProductoListado() As FormProductosListado
        Get
            Return m_frmProductoListado
        End Get
        Set(value As FormProductosListado)
            m_frmProductoListado = value
        End Set
    End Property

    Private m_frmMateriales As FrmMateriales
    Public Property frmMateriales() As FrmMateriales
        Get
            Return m_frmMateriales
        End Get
        Set(value As FrmMateriales)
            m_frmMateriales = value
        End Set
    End Property

    Private m_frmMaterialesListado As FormMaterialesListado
    Public Property frmMaterialesListado() As FormMaterialesListado
        Get
            Return m_frmMaterialesListado
        End Get
        Set(value As FormMaterialesListado)
            m_frmMaterialesListado = value
        End Set
    End Property

    Private m_frmActividadesListado As FormActividadesListado
    Public Property frmActividadesListado() As FormActividadesListado
        Get
            Return m_frmActividadesListado
        End Get
        Set(ByVal value As FormActividadesListado)
            m_frmActividadesListado = value
        End Set
    End Property
    Private m_frmEmpleadosListado As FormEmpleadosListado
    Public Property frmEmpleadosListado() As FormEmpleadosListado
        Get
            Return m_frmEmpleadosListado
        End Get
        Set(ByVal value As FormEmpleadosListado)
            m_frmEmpleadosListado = value
        End Set
    End Property
    Private m_frmEmpleados As FrmEmpleados
    Public Property frmEmpleados() As FrmEmpleados
        Get
            Return m_frmEmpleados
        End Get
        Set(ByVal value As FrmEmpleados)
            m_frmEmpleados = value
        End Set
    End Property
    Private m_frmAreasListado As FrmAreasListado
    Public Property frmAreasListado() As FrmAreasListado
        Get
            Return m_frmAreasListado
        End Get
        Set(ByVal value As FrmAreasListado)
            m_frmAreasListado = value
        End Set
    End Property
    Private m_frmAreas As FrmAreas
    Public Property frmAreas() As FrmAreas
        Get
            Return m_frmAreas
        End Get
        Set(ByVal value As FrmAreas)
            m_frmAreas = value
        End Set
    End Property
    '**********************************************************
    Private m_frmSectorListado As FrmSectorListado
    Public Property frmSectorListado() As FrmSectorListado
        Get
            Return m_frmSectorListado
        End Get
        Set(ByVal value As FrmSectorListado)
            m_frmSectorListado = value
        End Set
    End Property
    Private m_frmSector As FrmSector
    Public Property frmSector() As FrmSector
        Get
            Return m_frmSector
        End Get
        Set(ByVal value As FrmSector)
            m_frmSector = value
        End Set
    End Property
    '****************************************************************
    Private m_formTipoEmpListado As FormTipoEmpListado
    Public Property formTipoEmpListado() As FormTipoEmpListado
        Get
            Return m_formTipoEmpListado
        End Get
        Set(ByVal value As FormTipoEmpListado)
            m_formTipoEmpListado = value
        End Set
    End Property
    Private m_frmTipoEmp As FrmTipoEmp
    Public Property frmTipoEmp() As FrmTipoEmp
        Get
            Return m_frmTipoEmp
        End Get
        Set(ByVal value As FrmTipoEmp)
            m_frmTipoEmp = value
        End Set
    End Property
    '****************************************************************
    Private m_formCategoriaListado As FormCategoriaListado
    Public Property formCategoriaListado() As FormCategoriaListado
        Get
            Return m_formCategoriaListado
        End Get
        Set(ByVal value As FormCategoriaListado)
            m_formCategoriaListado = value
        End Set
    End Property
    Private m_frmCategoria As FrmCategoria
    Public Property frmCategoria() As FrmCategoria
        Get
            Return m_frmCategoria
        End Get
        Set(ByVal value As FrmCategoria)
            m_frmCategoria = value
        End Set
    End Property

    '********************************************************************
    Private m_formDepositoListado As FormDepositosListado
    Public Property formDepositoListado() As FormDepositosListado
        Get
            Return m_formDepositoListado
        End Get
        Set(ByVal value As FormDepositosListado)
            m_formDepositoListado = value
        End Set
    End Property
    Private m_frmDeposito As FrmDepositos
    Public Property frmDeposito() As FrmDepositos
        Get
            Return m_frmDeposito
        End Get
        Set(ByVal value As FrmDepositos)
            m_frmDeposito = value
        End Set
    End Property
    '********************************************************************
    Private m_formSeccionesListado As FormSeccionesListado
    Public Property formSeccionesListado() As FormSeccionesListado
        Get
            Return m_formSeccionesListado
        End Get
        Set(ByVal value As FormSeccionesListado)
            m_formSeccionesListado = value
        End Set
    End Property
    Private m_frmSecciones As FrmSecciones
    Public Property frmSecciones() As FrmSecciones
        Get
            Return m_frmSecciones
        End Get
        Set(ByVal value As FrmSecciones)
            m_frmSecciones = value
        End Set
    End Property
    '********************************************************************
    Private m_formtipoclienteListado As FormTipoClienteListado
    Public Property formtipoclienteListado() As FormTipoClienteListado
        Get
            Return m_formtipoclienteListado
        End Get
        Set(ByVal value As FormTipoClienteListado)
            m_formtipoclienteListado = value
        End Set
    End Property
    Private m_frmtipocliente As FrmTipoCliente
    Public Property frmtipocliente() As FrmTipoCliente
        Get
            Return m_frmtipocliente
        End Get
        Set(ByVal value As FrmTipoCliente)
            m_frmtipocliente = value
        End Set
    End Property
    '********************************************************************
    Private m_formciudadlistado As FormCiudadListado
    Public Property formciudadlistado() As FormCiudadListado
        Get
            Return m_formciudadlistado
        End Get
        Set(ByVal value As FormCiudadListado)
            m_formciudadlistado = value
        End Set
    End Property

    '********************************************************************
    Private m_formtipomateriallistado As FormTipoMaterialListado
    Public Property formtipomateriallistado() As FormTipoMaterialListado
        Get
            Return m_formtipomateriallistado
        End Get
        Set(ByVal value As FormTipoMaterialListado)
            m_formtipomateriallistado = value
        End Set
    End Property

    Private Property Frmciudadlistado As Object

    '********************************************************************
    Private m_frmRpts As FormReportes
    Public Property frmRpts() As FormReportes
        Get
            Return m_frmRpts
        End Get
        Set(ByVal value As FormReportes)
            m_frmRpts = value
        End Set
    End Property

    '********************************************************************
    Private m_formEstadoCuentaListado As FormEstadoCuentaListado
    Public Property formEstadoCuentaListado() As FormEstadoCuentaListado
        Get
            Return m_formEstadoCuentaListado
        End Get
        Set(ByVal value As FormEstadoCuentaListado)
            m_formEstadoCuentaListado = value
        End Set
    End Property
    '********************************************************************
    Private m_formComprasVencidasListado As FormComprasVencidasListado
    Public Property formComprasVencidasListado() As FormComprasVencidasListado
        Get
            Return m_formComprasVencidasListado
        End Get
        Set(ByVal value As FormComprasVencidasListado)
            m_formComprasVencidasListado = value
        End Set
    End Property


    Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs)
        ' Cree una nueva instancia del formulario secundario.
        Dim ChildForm As New System.Windows.Forms.Form
        ' Conviértalo en un elemento secundario de este formulario MDI antes de mostrarlo.
        ChildForm.MdiParent = Me

        m_ChildFormNumber += 1
        ChildForm.Text = "Ventana " & m_ChildFormNumber

        ChildForm.Show()
    End Sub

    Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs)
        Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        OpenFileDialog.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
        If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = OpenFileDialog.FileName
            ' TODO: agregue código aquí para abrir el archivo.
        End If
    End Sub

    Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim SaveFileDialog As New SaveFileDialog
        SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        SaveFileDialog.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"

        If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = SaveFileDialog.FileName
            ' TODO: agregue código aquí para guardar el contenido actual del formulario en un archivo.
        End If
    End Sub


    Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        Me.Close()
    End Sub

    Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        ' Utilice My.Computer.Clipboard para insertar el texto o las imágenes seleccionadas en el Portapapeles
    End Sub

    Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        ' Utilice My.Computer.Clipboard para insertar el texto o las imágenes seleccionadas en el Portapapeles
    End Sub

    Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        'Utilice My.Computer.Clipboard.GetText() o My.Computer.Clipboard.GetData para recuperar la información del Portapapeles.
    End Sub

    'Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
    '    Me.ToolStrip.Visible = Me.ToolBarToolStripMenuItem.Checked
    'End Sub

    'Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
    '    Me.StatusStrip.Visible = Me.StatusBarToolStripMenuItem.Checked
    'End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        Me.LayoutMdi(MdiLayout.ArrangeIcons)
    End Sub

    Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        ' Cierre todos los formularios secundarios del principal.
        For Each ChildForm As Form In Me.MdiChildren
            ChildForm.Close()
        Next
    End Sub

    Private m_ChildFormNumber As Integer

    Private Sub MDIsistemaRC_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim login As New frmLogin
        If login.ShowDialog() = Windows.Forms.DialogResult.OK Then
            ToolStripStatusLabel.Text = "Bienvenido " & oiml.Usuario
            ControlPermisos()
        Else
            Application.Exit()

        End If


    End Sub

    Private Sub ControlPermisos()
        'ROLE VENTAS
        '******************************************************************************
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR VENTAS") Then
            mnuRegVentas.Visible = False
            VentasMensualesToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "INFORMES TOTALES") Then
            ReportesToolStripMenuItem.Visible = False
        End If

        If Not oiml.ControlPermiso(oiml.idUsuario, "ACTUALIZAR VENTAS") Then
            mnuListVentas.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "ACTUALIZAR VENTAS") Then
            mnuListVentas.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR COBROS") Then
            RegistrarcobrosToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR CLIENTES") Then
            ToolStripMenuItem1.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR PEDIDOS") Then
            PedidosToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REALIZAR OPERACIONES") Then
            mnuOperaciones.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, " ACTUALZAR COBROS") Then
            ListadoDeCobrosToolStripMenuItem.Visible = False
            ToolStripMenuItem2.Visible = False
        End If
        
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR PEDIDOS") Then
            RegistrarPedidoToolStripMenuItem.Visible = False
            ListadoDePedidosToolStripMenuItem.Visible = False
        End If

        '*******************************************************************************
        'MANTENIMIENTO
        If Not oiml.ControlPermiso(oiml.idUsuario, "MANTENIMIENTO DEL SISTEMA") Then
            MantenimientoToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "ACCESO AL LOG") Then
            LOGsToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR ORGANIZACION") Then
            OrganizacionToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR RRHH") Then
            RRHHToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR DEPOSITO") Then
            DepositosToolStripMenuItem1.Visible = False
            SeccionesToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "ACTUALIZAR DEPOSITO") Then
            DepositosToolStripMenuItem1.Visible = False
            SeccionesToolStripMenuItem.Visible = False
        End If

        
        '*******************************************************************************
        'COMPRAS
        
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR COMPRAS") Then
            RegistrarComprasToolStripMenuItem.Visible = False
            ListadoDeComprasToolStripMenuItem.Visible = False
            ComprasMensualesToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR PAGOS") Then
            RegistrarpagosToolStripMenuItem.Visible = False
            ListadoDePagosToolStripMenuItem.Visible = False
            InformesToolStripMenuItem.Visible = False
        End If

        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR PROVEEDORES") Then
            ProveedoresToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR MATERIALES") Then
            MaterialesToolStripMenuItem1.Visible = False
            ProductosToolStripMenuItem.Visible = False
        End If
        
        '*************************************************************************
        'PRODUCCION
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR MOVIENTO PEDIDOS") Then
            ActualizarEstadoPedidoToolStripMenuItem.Visible = False
            ListadoDePedidosToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR PRODUCTOS") Then
            ProductosToolStripMenuItem.Visible = False
            RegistrarProductoToolStripMenuItem.Visible = False
            ListadoDeProductosToolStripMenuItem.Visible = False
            ActividadesToolStripMenuItem.Visible = False
            mnuServicios.Visible = False
        End If
        '*************************************************************************
        'DEPOSITO
        If Not oiml.ControlPermiso(oiml.idUsuario, "ACTUALIZAR DEPOSITO") Then
            DepositosToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR ENTRADA PRODUCTOS") Then
            EntradaProductoToolStripMenuItem.Visible = False
            EntradaMaterialToolStripMenuItem.Visible = False
            StockDeProductosToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR SALIDA PRODCUCTOS") Then
            SalidaProductoToolStripMenuItem.Visible = False
            EntradaMaterialToolStripMenuItem.Visible = False
            StockDeProductosToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR ENTRADA MATERIALES") Then
            entradaMaterialesCompra.Visible = False
            ListadoMovimientoMaterialToolStripMenuItem.Visible = False
            StockDeMaterialesToolStripMenuItem.Visible = False
        End If
        If Not oiml.ControlPermiso(oiml.idUsuario, "REGISTRAR SALIDAD MATERIALES") Then
            salidaMaterialesPedido.Visible = False
            ListadoMovimientoMaterialToolStripMenuItem.Visible = False
            StockDeMaterialesToolStripMenuItem.Visible = False
        End If

    End Sub


    Private Sub RecibirPedidosDeClientesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If frmPedidoN Is Nothing Then
            frmPedidoN = New FrmPedidosN()
            frmPedidoN.MdiParent = Me
            frmPedidoN.Show()
        Else

            If Not frmPedidoN.Visible Then
                frmPedidoN = New FrmPedidosN()
                frmPedidoN.MdiParent = Me
                frmPedidoN.Show()
            Else
                frmPedidoN.Select()
                frmPedidoN.Activate()
            End If

        End If
    End Sub

    Private Sub RegistrarClientesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegistrarClientesToolStripMenuItem.Click
        If frmClientes Is Nothing Then
            frmClientes = New FrmClientes()
            frmClientes.MdiParent = Me
            frmClientes.Show()
            frmClientes.NuevoCliente()
        Else

            If Not frmClientes.Visible Then
                frmClientes = New FrmClientes()
                frmClientes.MdiParent = Me
                frmClientes.Show()
                frmClientes.NuevoCliente()
            Else
                frmClientes.Select()
                frmClientes.Activate()
            End If

        End If

    End Sub



    Private Sub ActualizarEstadoPedidoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActualizarEstadoPedidoToolStripMenuItem.Click
        If frmActPedidos Is Nothing Then
            frmActPedidos = New FrmActPedido()
            frmActPedidos.MdiParent = Me
            frmActPedidos.Show()
        Else

            If Not frmActPedidos.Visible Then
                frmActPedidos = New FrmActPedido()
                frmActPedidos.MdiParent = Me
                frmActPedidos.Show()
            Else
                frmActPedidos.Select()
                frmActPedidos.Activate()
            End If

        End If

    End Sub

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub RegistrarUsuariosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Frmusuario.Show()
    End Sub

    Private Sub RegistrarMaterialToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        frmMateriales.Show()
    End Sub

    Private Sub RegistrarProveedoresToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        frmProveedores.Show()
    End Sub



    Private Sub RegistrarTipoMaterialToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        FrmTipomate.Show()
    End Sub

    Private Sub RegistrarProductoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegistrarProductoToolStripMenuItem.Click


    End Sub

    Private Sub GenerarReportesDePedidosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        FrmRepoPedidos.Show()

    End Sub

    Private Sub RegistrarPresupuestosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        FrmPresupuesto.Show()
    End Sub

    Private Sub MaterialesToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles MaterialesToolStripMenuItem2.Click

        If frmMaterialesListado Is Nothing Then
            frmMaterialesListado = New FormMaterialesListado()
            frmMaterialesListado.MdiParent = Me
            frmMaterialesListado.Show()
        Else

            If Not frmMaterialesListado.Visible Then
                frmMaterialesListado = New FormMaterialesListado()
                frmMaterialesListado.MdiParent = Me
                frmMaterialesListado.Show()
            Else
                frmMaterialesListado.Select()
                frmMaterialesListado.Activate()
            End If

        End If

    End Sub

    Private Sub TiposDeMaterialesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TiposDeMaterialesToolStripMenuItem.Click
        If formtipomateriallistado Is Nothing Then
            formtipomateriallistado = New FormTipoMaterialListado()
            formtipomateriallistado.MdiParent = Me
            formtipomateriallistado.Show()
        Else

            If Not formtipomateriallistado.Visible Then
                formtipomateriallistado = New FormTipoMaterialListado()
                formtipomateriallistado.MdiParent = Me
                formtipomateriallistado.Show()
            Else
                formtipomateriallistado.Select()
                formtipomateriallistado.Activate()
            End If

        End If
    End Sub

    Private Sub ProveedoresToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
        frmProveedores.Show()
    End Sub

    Private Sub RegistarProductosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RegistarProductosToolStripMenuItem.Click

        If frmProductos Is Nothing Then
            frmProductos = New FrmProductos()
            frmProductos.MdiParent = Me
            frmProductos.Show()
            frmProductos.NuevoProducto()
        Else

            If Not frmProductos.Visible Then
                frmProductos = New FrmProductos()
                frmProductos.MdiParent = Me
                frmProductos.Show()
                frmProductos.NuevoProducto()
            Else
                frmProductos.Select()
                frmProductos.Activate()
            End If

        End If

    End Sub


    Private Sub mnuSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Application.Exit()

    End Sub

    Private Sub mnuNewServicio_Click(sender As System.Object, e As System.EventArgs) Handles mnuServicioNuevo.Click

        If frmServicios Is Nothing Then
            frmServicios = New FrmServicios()
            frmServicios.MdiParent = Me
            frmServicios.Show()
        Else

            If Not frmServicios.Visible Then
                frmServicios = New FrmServicios()
                frmServicios.MdiParent = Me
                frmServicios.Show()
            Else
                frmServicios.Select()
                frmServicios.Activate()
            End If

        End If

    End Sub

    Private Sub mnuServiciosListado_Click(sender As System.Object, e As System.EventArgs) Handles mnuServiciosListado.Click

        If frmServicioListado Is Nothing Then
            frmServicioListado = New FormServiciosListado()
            frmServicioListado.MdiParent = Me
            frmServicioListado.Show()
        Else

            If Not frmServicioListado.Visible Then
                frmServicioListado = New FormServiciosListado()
                frmServicioListado.MdiParent = Me
                frmServicioListado.Show()
            Else
                frmServicioListado.Select()
                frmServicioListado.Activate()
            End If

        End If

    End Sub

    Private Sub ListadoDeProductosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ListadoDeProductosToolStripMenuItem.Click
        If frmProductoListado Is Nothing Then
            frmProductoListado = New FormProductosListado()
            frmProductoListado.MdiParent = Me
            frmProductoListado.Show()
        Else

            If Not frmProductoListado.Visible Then
                frmProductoListado = New FormProductosListado()
                frmProductoListado.MdiParent = Me
                frmProductoListado.Show()
            Else
                frmProductoListado.Select()
                frmProductoListado.Activate()
            End If

        End If

    End Sub

    Private Sub mnuClientesListados_Click(sender As System.Object, e As System.EventArgs) Handles mnuClientesListados.Click
        If frmClienteListado Is Nothing Then
            frmClienteListado = New FormClientesListado()
            frmClienteListado.MdiParent = Me
            frmClienteListado.Show()
        Else

            If Not frmClienteListado.Visible Then
                frmClienteListado = New FormClientesListado()
                frmClienteListado.MdiParent = Me
                frmClienteListado.Show()
            Else
                frmClienteListado.Select()
                frmClienteListado.Activate()
            End If

        End If

    End Sub

    Private Sub TiposDeProductosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TiposDeProductosToolStripMenuItem.Click

        If frmTipoProdListado Is Nothing Then
            frmTipoProdListado = New FormTipoProdListado()
            frmTipoProdListado.MdiParent = Me
            frmTipoProdListado.Show()
        Else

            If Not frmTipoProdListado.Visible Then
                frmTipoProdListado = New FormTipoProdListado()
                frmTipoProdListado.MdiParent = Me
                frmTipoProdListado.Show()
            Else
                frmTipoProdListado.Select()
                frmTipoProdListado.Activate()
            End If

        End If

    End Sub


    Private Sub NuevoTipoDeProductoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NuevoTipoDeProductoToolStripMenuItem.Click

        If frmTipoProd Is Nothing Then
            frmTipoProd = New FrmTipoProd()
            frmTipoProd.MdiParent = Me
            frmTipoProd.Show()
        Else

            If Not frmTipoProd.Visible Then
                frmTipoProd = New FrmTipoProd()
                frmTipoProd.MdiParent = Me
                frmTipoProd.Show()
            Else
                frmTipoProd.Select()
                frmTipoProd.Activate()
            End If

        End If

    End Sub


    Private Sub NuevoMaterialToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        If frmMateriales Is Nothing Then
            frmMateriales = New FrmMateriales()
            frmMateriales.MdiParent = Me
            frmMateriales.Show()
        Else

            If Not frmMateriales.Visible Then
                frmMateriales = New FrmMateriales()
                frmMateriales.MdiParent = Me
                frmMateriales.Show()
            Else
                frmMateriales.Select()
                frmMateriales.Activate()
            End If

        End If

    End Sub

    Private Sub RegistrarProveedorToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RegistrarProveedorToolStripMenuItem.Click

        If frmProveedores Is Nothing Then
            frmProveedores = New FrmProveedores()
            frmProveedores.MdiParent = Me
            frmProveedores.Show()
        Else

            If Not frmProveedores.Visible Then
                frmProveedores = New FrmProveedores()
                frmProveedores.MdiParent = Me
                frmProveedores.Show()
            Else
                frmProveedores.Select()
                frmProveedores.Activate()
            End If

        End If

    End Sub

    Private Sub ListadoDeProveedoresToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ListadoDeProveedoresToolStripMenuItem.Click

        If frmProveedoresListado Is Nothing Then
            frmProveedoresListado = New FormProveedoresListado()
            frmProveedoresListado.MdiParent = Me
            frmProveedoresListado.Show()
        Else

            If Not frmProveedoresListado.Visible Then
                frmProveedoresListado = New FormProveedoresListado()
                frmProveedoresListado.MdiParent = Me
                frmProveedoresListado.Show()
            Else
                frmProveedoresListado.Select()
                frmProveedoresListado.Activate()
            End If

        End If

    End Sub

    Private Sub RegistrarVentasToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuRegVentas.Click

        If frmVentas Is Nothing Then
            frmVentas = New FrmVentas()
            frmVentas.MdiParent = Me
            frmVentas.Show()
        Else

            If Not frmVentas.Visible Then
                frmVentas = New FrmVentas()
                frmVentas.MdiParent = Me
                frmVentas.Show()
            Else
                frmVentas.Select()
                frmVentas.Activate()
            End If

        End If

    End Sub

    Private Sub ListadoDeVentasToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuListVentas.Click

        If frmVentasListado Is Nothing Then
            frmVentasListado = New FormVentasListado()
            frmVentasListado.MdiParent = Me
            frmVentasListado.Show()
        Else

            If Not frmVentasListado.Visible Then
                frmVentasListado = New FormVentasListado()
                frmVentasListado.MdiParent = Me
                frmVentasListado.Show()
            Else
                frmVentasListado.Select()
                frmVentasListado.Activate()
            End If

        End If

    End Sub

    Private Sub ListadoDeCobrosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ListadoDeCobrosToolStripMenuItem.Click

        If frmCobrosListado Is Nothing Then
            frmCobrosListado = New FormCobrosListado()
            frmCobrosListado.MdiParent = Me
            frmCobrosListado.Show()
        Else

            If Not frmCobrosListado.Visible Then
                frmCobrosListado = New FormCobrosListado()
                frmCobrosListado.MdiParent = Me
                frmCobrosListado.Show()
            Else
                frmCobrosListado.Select()
                frmCobrosListado.Activate()
            End If

        End If

    End Sub

    Private Sub RegistrarcobrosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RegistrarcobrosToolStripMenuItem.Click

        If frmCobros Is Nothing Then
            frmCobros = New FrmCobros()
            frmCobros.MdiParent = Me
            frmCobros.Show()
        Else

            If Not frmCobros.Visible Then
                frmCobros = New FrmCobros()
                frmCobros.MdiParent = Me
                frmCobros.Show()
            Else
                frmCobros.Select()
                frmCobros.Activate()
            End If

        End If

    End Sub

    Private Sub ListadoDeOrdenesDecompraToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ListadoDeOrdenesDecompraToolStripMenuItem.Click

        If frmOrdenCompraListado Is Nothing Then
            frmOrdenCompraListado = New FormOrdenCompraListado()
            frmOrdenCompraListado.MdiParent = Me
            frmOrdenCompraListado.Show()
        Else

            If Not frmOrdenCompraListado.Visible Then
                frmOrdenCompraListado = New FormOrdenCompraListado()
                frmOrdenCompraListado.MdiParent = Me
                frmOrdenCompraListado.Show()
            Else
                frmOrdenCompraListado.Select()
                frmOrdenCompraListado.Activate()
            End If

        End If

    End Sub

    Private Sub RegistrarordenDeCompraToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RegistrarordenDeCompraToolStripMenuItem.Click

        If frmOrdenCompra Is Nothing Then
            frmOrdenCompra = New FrmOrdenCompra()
            frmOrdenCompra.MdiParent = Me
            frmOrdenCompra.Show()
        Else

            If Not frmOrdenCompra.Visible Then
                frmOrdenCompra = New FrmOrdenCompra()
                frmOrdenCompra.MdiParent = Me
                frmOrdenCompra.Show()
            Else
                frmOrdenCompra.Select()
                frmOrdenCompra.Activate()
            End If

        End If

    End Sub

    Private Sub RegistrarPedidoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RegistrarPedidoToolStripMenuItem.Click

        If frmPedidoN Is Nothing Then
            frmPedidoN = New FrmPedidosN()
            frmPedidoN.MdiParent = Me
            frmPedidoN.Show()
        Else

            If Not frmPedidoN.Visible Then
                frmPedidoN = New FrmPedidosN()
                frmPedidoN.MdiParent = Me
                frmPedidoN.Show()
            Else
                frmPedidoN.Select()
                frmPedidoN.Activate()
            End If

        End If

    End Sub

   

    Private Sub ListadoDePedidosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ListadoDePedidosToolStripMenuItem.Click

        If frmPedidoNListado Is Nothing Then
            frmPedidoNListado = New FormPedidosNListado()
            frmPedidoNListado.MdiParent = Me
            frmPedidoNListado.Show()
        Else

            If Not frmPedidoNListado.Visible Then
                frmPedidoNListado = New FormPedidosNListado()
                frmPedidoNListado.MdiParent = Me
                frmPedidoNListado.Show()
            Else
                frmPedidoNListado.Select()
                frmPedidoNListado.Activate()
            End If

        End If

    End Sub

    Private Sub NuevoEmpleadoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If frmEmpleados Is Nothing Then
            frmEmpleados = New FrmEmpleados()
            frmEmpleados.MdiParent = Me
            frmEmpleados.Show()
        Else

            If Not frmEmpleados.Visible Then
                frmEmpleados = New FrmEmpleados()
                frmEmpleados.MdiParent = Me
                frmEmpleados.Show()
            Else
                frmEmpleados.Select()
                frmEmpleados.Activate()
            End If

        End If
    End Sub

    

    Private Sub NuevaAreaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If frmAreas Is Nothing Then
            frmAreas = New FrmAreas()
            frmAreas.MdiParent = Me
            frmAreas.Show()
        Else

            If Not frmAreas.Visible Then
                frmAreas = New FrmAreas()
                frmAreas.MdiParent = Me
                frmAreas.Show()
            Else
                frmAreas.Select()
                frmAreas.Activate()
            End If

        End If
    End Sub

    

    Private Sub NuevoSectorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If frmSector Is Nothing Then
            frmSector = New FrmSector()
            frmSector.MdiParent = Me
            frmSector.Show()
        Else

            If Not frmSector.Visible Then
                frmSector = New FrmSector()
                frmSector.MdiParent = Me
                frmSector.Show()
            Else
                frmSector.Select()
                frmSector.Activate()
            End If

        End If
    End Sub

    Private Sub ListadoDeSectoresToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub NuevoTipoDeEmpleadoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If frmTipoEmp Is Nothing Then
            frmTipoEmp = New FrmTipoEmp()
            frmTipoEmp.MdiParent = Me
            frmTipoEmp.Show()
        Else

            If Not frmTipoEmp.Visible Then
                frmTipoEmp = New FrmTipoEmp()
                frmTipoEmp.MdiParent = Me
                frmTipoEmp.Show()
            Else
                frmTipoEmp.Select()
                frmTipoEmp.Activate()
            End If

        End If
    End Sub

    

    Private Sub NuevaCategoriaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If frmCategoria Is Nothing Then
            frmCategoria = New FrmCategoria()
            frmCategoria.MdiParent = Me
            frmCategoria.Show()
        Else

            If Not frmCategoria.Visible Then
                frmCategoria = New FrmCategoria()
                frmCategoria.MdiParent = Me
                frmCategoria.Show()
            Else
                frmCategoria.Select()
                frmCategoria.Activate()
            End If

        End If
    End Sub

   


    'Private Sub EntradaDeProductosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles EntradaDeProductosToolStripMenuItem.Click

    '    If frmEntProductos Is Nothing Then
    '        frmEntProductos = New FrmEntradaProductos()
    '        frmEntProductos.MdiParent = Me
    '        frmEntProductos.Show()
    '    Else

    '        If Not frmEntProductos.Visible Then
    '            frmEntProductos = New FrmEntradaProductos()
    '            frmEntProductos.MdiParent = Me
    '            frmEntProductos.Show()
    '        Else
    '            frmEntProductos.Select()
    '            frmEntProductos.Activate()
    '        End If

    '    End If

    'End Sub

    Private Sub RegistrarDepositoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If frmDeposito Is Nothing Then
            frmDeposito = New FrmDepositos()
            frmDeposito.MdiParent = Me
            frmDeposito.Show()
        Else

            If Not frmDeposito.Visible Then
                frmDeposito = New FrmDepositos()
                frmDeposito.MdiParent = Me
                frmDeposito.Show()
            Else
                frmDeposito.Select()
                frmDeposito.Activate()
            End If

        End If
    End Sub

  
    Private Sub NuevoDepositoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If frmSecciones Is Nothing Then
            frmSecciones = New FrmSecciones()
            frmSecciones.MdiParent = Me
            frmSecciones.Show()
        Else

            If Not frmSecciones.Visible Then
                frmSecciones = New FrmSecciones()
                frmSecciones.MdiParent = Me
                frmSecciones.Show()
            Else
                frmSecciones.Select()
                frmSecciones.Activate()
            End If

        End If
    End Sub

    

    Private Sub RegistrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'If frmEntProductos Is Nothing Then
        '    frmEntProductos = New FrmEntradaProductos()
        '    frmEntProductos.MdiParent = Me
        '    frmEntProductos.Show()
        'Else

        '    If Not frmEntProductos.Visible Then
        '        frmEntProductos = New FrmEntradaProductos()
        '        frmEntProductos.MdiParent = Me
        '        frmEntProductos.Show()
        '    Else
        '        frmEntProductos.Select()
        '        frmEntProductos.Activate()
        '    End If

        'End If
    End Sub

    Private Sub entradaMaterialesCompra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles entradaMaterialesCompra.Click

        If frmEntMateriales Is Nothing Then
            frmEntMateriales = New FrmEntradaMateriales()
            frmEntMateriales.MdiParent = Me
            frmEntMateriales.Show()
        Else

            If Not frmEntMateriales.Visible Then
                frmEntMateriales = New FrmEntradaMateriales()
                frmEntMateriales.MdiParent = Me
                frmEntMateriales.Show()
            Else
                frmEntMateriales.Select()
                frmEntMateriales.Activate()
            End If

        End If

    End Sub

    Private Sub EntradaProductoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EntradaProductoToolStripMenuItem.Click
        If frmEntProductos Is Nothing Then
            frmEntProductos = New FrmEntradaProductos()
            frmEntProductos.MdiParent = Me
            frmEntProductos.Show()
        Else

            If Not frmEntProductos.Visible Then
                frmEntProductos = New FrmEntradaProductos()
                frmEntProductos.MdiParent = Me
                frmEntProductos.Show()
            Else
                frmEntProductos.Select()
                frmEntProductos.Activate()
            End If

        End If
    End Sub

    Private Sub EntradaMaterialToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EntradaMaterialToolStripMenuItem.Click
        If frmListMovProductos Is Nothing Then
            frmListMovProductos = New FormMovProductosListado()
            frmListMovProductos.MdiParent = Me
            frmListMovProductos.Show()
        Else

            If Not frmListMovProductos.Visible Then
                frmListMovProductos = New FormMovProductosListado()
                frmListMovProductos.MdiParent = Me
                frmListMovProductos.Show()
            Else
                frmListMovProductos.Select()
                frmListMovProductos.Activate()
            End If

        End If
    End Sub
    Private Sub RegistrarTipoClientesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegistrarTipoClientesToolStripMenuItem.Click
        If frmtipocliente Is Nothing Then
            frmtipocliente = New FrmTipoCliente()
            frmtipocliente.MdiParent = Me
            frmtipocliente.Show()
        Else

            If Not frmtipocliente.Visible Then
                frmtipocliente = New FrmTipoCliente()
                frmtipocliente.MdiParent = Me
                frmtipocliente.Show()
            Else
                frmtipocliente.Select()
                frmtipocliente.Activate()
            End If

        End If
    End Sub


    Private Sub ListadoTipoClientesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadoTipoClientesToolStripMenuItem.Click
        If formtipoclienteListado Is Nothing Then
            formtipoclienteListado = New FormTipoClienteListado()
            formtipoclienteListado.MdiParent = Me
            formtipoclienteListado.Show()
        Else

            If Not formtipoclienteListado.Visible Then
                formtipoclienteListado = New FormTipoClienteListado()
                formtipoclienteListado.MdiParent = Me
                formtipoclienteListado.Show()
            Else
                formtipoclienteListado.Select()
                formtipoclienteListado.Activate()
            End If

        End If
    End Sub

    Private Sub EntradaDeProductosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If frmEntProductos Is Nothing Then
            frmEntProductos = New FrmEntradaProductos()
            frmEntProductos.MdiParent = Me
            frmEntProductos.Show()
        Else

            If Not frmEntProductos.Visible Then
                frmEntProductos = New FrmEntradaProductos()
                frmEntProductos.MdiParent = Me
                frmEntProductos.Show()
            Else
                frmEntProductos.Select()
                frmEntProductos.Activate()
            End If

        End If
    End Sub

    Private Sub SalidaDeProductosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If frmSalProductos Is Nothing Then
            frmSalProductos = New FrmSalidaProducto()
            frmSalProductos.MdiParent = Me
            frmSalProductos.Show()
        Else

            If Not frmSalProductos.Visible Then
                frmSalProductos = New FrmSalidaProducto()
                frmSalProductos.MdiParent = Me
                frmSalProductos.Show()
            Else
                frmSalProductos.Select()
                frmSalProductos.Activate()
            End If

        End If
    End Sub

    Private Sub ListadoDeMovimientosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If frmListMovProductos Is Nothing Then
            frmListMovProductos = New FormMovProductosListado()
            frmListMovProductos.MdiParent = Me
            frmListMovProductos.Show()
        Else

            If Not frmListMovProductos.Visible Then
                frmListMovProductos = New FormMovProductosListado()
                frmListMovProductos.MdiParent = Me
                frmListMovProductos.Show()
            Else
                frmListMovProductos.Select()
                frmListMovProductos.Activate()
            End If

        End If
    End Sub

    Private Sub SalidaProductoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalidaProductoToolStripMenuItem.Click
        If frmSalProductos Is Nothing Then
            frmSalProductos = New FrmSalidaProducto()
            frmSalProductos.MdiParent = Me
            frmSalProductos.Show()
        Else

            If Not frmSalProductos.Visible Then
                frmSalProductos = New FrmSalidaProducto()
                frmSalProductos.MdiParent = Me
                frmSalProductos.Show()
            Else
                frmSalProductos.Select()
                frmSalProductos.Activate()
            End If

        End If
    End Sub


    Private Sub CidadadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CidadadToolStripMenuItem.Click
        If Frmciudadlistado Is Nothing Then
            Frmciudadlistado = New FormCiudadListado()
            Frmciudadlistado.MdiParent = Me
            Frmciudadlistado.Show()
        Else

            If Not Frmciudadlistado.Visible Then
                Frmciudadlistado = New FormCiudadListado()
                Frmciudadlistado.MdiParent = Me
                Frmciudadlistado.Show()
            Else
                Frmciudadlistado.Select()
                Frmciudadlistado.Activate()
            End If

        End If
    End Sub

    Private Sub RegistrarComprasToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RegistrarComprasToolStripMenuItem.Click

        If frmCompras Is Nothing Then
            frmCompras = New FrmCompras()
            frmCompras.MdiParent = Me
            frmCompras.Show()
        Else

            If Not frmCompras.Visible Then
                frmCompras = New FrmCompras()
                frmCompras.MdiParent = Me
                frmCompras.Show()
            Else
                frmCompras.Select()
                frmCompras.Activate()
            End If

        End If

    End Sub

    Private Sub ListadoDeComprasToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ListadoDeComprasToolStripMenuItem.Click

        If frmComprasListado Is Nothing Then
            frmComprasListado = New FormComprasListado()
            frmComprasListado.MdiParent = Me
            frmComprasListado.Show()
        Else

            If Not frmComprasListado.Visible Then
                frmComprasListado = New FormComprasListado()
                frmComprasListado.MdiParent = Me
                frmComprasListado.Show()
            Else
                frmComprasListado.Select()
                frmComprasListado.Activate()
            End If

        End If

    End Sub

    Private Sub salidaMaterialesPedido_Click(sender As System.Object, e As System.EventArgs) Handles salidaMaterialesPedido.Click

        If frmSalMateriales Is Nothing Then
            frmSalMateriales = New FrmSalidaMateriales()
            frmSalMateriales.MdiParent = Me
            frmSalMateriales.Show()
        Else

            If Not frmSalMateriales.Visible Then
                frmSalMateriales = New FrmSalidaMateriales()
                frmSalMateriales.MdiParent = Me
                frmSalMateriales.Show()
            Else
                frmSalMateriales.Select()
                frmSalMateriales.Activate()
            End If

        End If

    End Sub

    Private Sub ListadoMovimientoMaterialToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ListadoMovimientoMaterialToolStripMenuItem.Click
        If frmListMovMateriales Is Nothing Then
            frmListMovMateriales = New FormMovMaterialesListado()
            frmListMovMateriales.MdiParent = Me
            frmListMovMateriales.Show()
        Else

            If Not frmListMovMateriales.Visible Then
                frmListMovMateriales = New FormMovMaterialesListado()
                frmListMovMateriales.MdiParent = Me
                frmListMovMateriales.Show()
            Else
                frmListMovMateriales.Select()
                frmListMovMateriales.Activate()
            End If

        End If

    End Sub

    'Private Sub ControlPermisos()

    '    mnuOperaciones.Visible = oiml.ValidarPermiso(oiml.idUsuario, mnuOperaciones.Name)
    '    mnuRegVentas.Visible = oiml.ValidarPermiso(oiml.idUsuario, mnuRegVentas.Name)
    '    mnuListVentas.Visible = oiml.ValidarPermiso(oiml.idUsuario, mnuListVentas.Name)

    'End Sub


    Private Sub ActividadesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActividadesToolStripMenuItem.Click
        If frmActividadesListado Is Nothing Then
            frmActividadesListado = New FormActividadesListado()
            frmActividadesListado.MdiParent = Me
            frmActividadesListado.Show()
        Else

            If Not frmActividadesListado.Visible Then
                frmActividadesListado = New FormActividadesListado()
                frmActividadesListado.MdiParent = Me
                frmActividadesListado.Show()
            Else
                frmActividadesListado.Select()
                frmActividadesListado.Activate()
            End If

        End If
    End Sub

    Private Sub RegistrarAreasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegistrarAreasToolStripMenuItem.Click
        If frmAreasListado Is Nothing Then
            frmAreasListado = New FrmAreasListado()
            frmAreasListado.MdiParent = Me
            frmAreasListado.Show()
        Else

            If Not frmAreasListado.Visible Then
                frmAreasListado = New FrmAreasListado()
                frmAreasListado.MdiParent = Me
                frmAreasListado.Show()
            Else
                frmAreasListado.Select()
                frmAreasListado.Activate()
            End If

        End If
    End Sub

    Private Sub RegistrarSectorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegistrarSectorToolStripMenuItem.Click
        If frmSectorListado Is Nothing Then
            frmSectorListado = New FrmSectorListado()
            frmSectorListado.MdiParent = Me
            frmSectorListado.Show()
        Else

            If Not frmSectorListado.Visible Then
                frmSectorListado = New FrmSectorListado()
                frmSectorListado.MdiParent = Me
                frmSectorListado.Show()
            Else
                frmSectorListado.Select()
                frmSectorListado.Activate()
            End If

        End If
    End Sub

    Private Sub EmpleadosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmpleadosToolStripMenuItem.Click
        If formTipoEmpListado Is Nothing Then
            formTipoEmpListado = New FormTipoEmpListado()
            formTipoEmpListado.MdiParent = Me
            formTipoEmpListado.Show()
        Else

            If Not formTipoEmpListado.Visible Then
                formTipoEmpListado = New FormTipoEmpListado()
                formTipoEmpListado.MdiParent = Me
                formTipoEmpListado.Show()
            Else
                formTipoEmpListado.Select()
                formTipoEmpListado.Activate()
            End If

        End If
    End Sub

    Private Sub TToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TToolStripMenuItem.Click
        If formCategoriaListado Is Nothing Then
            formCategoriaListado = New FormCategoriaListado()
            formCategoriaListado.MdiParent = Me
            formCategoriaListado.Show()
        Else

            If Not formCategoriaListado.Visible Then
                formCategoriaListado = New FormCategoriaListado()
                formCategoriaListado.MdiParent = Me
                formCategoriaListado.Show()
            Else
                formCategoriaListado.Select()
                formCategoriaListado.Activate()
            End If

        End If
    End Sub

    Private Sub EmpleadosToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmpleadosToolStripMenuItem1.Click
        If frmEmpleadosListado Is Nothing Then
            frmEmpleadosListado = New FormEmpleadosListado()
            frmEmpleadosListado.MdiParent = Me
            frmEmpleadosListado.Show()
        Else

            If Not frmEmpleadosListado.Visible Then
                frmEmpleadosListado = New FormEmpleadosListado()
                frmEmpleadosListado.MdiParent = Me
                frmEmpleadosListado.Show()
            Else
                frmEmpleadosListado.Select()
                frmEmpleadosListado.Activate()
            End If

        End If
    End Sub

    Private Sub DepositosToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DepositosToolStripMenuItem1.Click
        If formDepositoListado Is Nothing Then
            formDepositoListado = New FormDepositosListado()
            formDepositoListado.MdiParent = Me
            formDepositoListado.Show()
        Else

            If Not formDepositoListado.Visible Then
                formDepositoListado = New FormDepositosListado()
                formDepositoListado.MdiParent = Me
                formDepositoListado.Show()
            Else
                formDepositoListado.Select()
                formDepositoListado.Activate()
            End If

        End If
    End Sub

    Private Sub SeccionesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SeccionesToolStripMenuItem.Click
        If formSeccionesListado Is Nothing Then
            formSeccionesListado = New FormSeccionesListado()
            formSeccionesListado.MdiParent = Me
            formSeccionesListado.Show()
        Else

            If Not formSeccionesListado.Visible Then
                formSeccionesListado = New FormSeccionesListado()
                formSeccionesListado.MdiParent = Me
                formSeccionesListado.Show()
            Else
                formSeccionesListado.Select()
                formSeccionesListado.Activate()
            End If

        End If
    End Sub

    Private Sub UsuariosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles UsuariosToolStripMenuItem.Click

        If formUsuario Is Nothing Then
            formUsuario = New Frmusuario()
            formUsuario.MdiParent = Me
            formUsuario.Show()
        Else

            If Not formUsuario.Visible Then
                formUsuario = New Frmusuario()
                formUsuario.MdiParent = Me
                formUsuario.Show()
            Else
                formUsuario.Select()
                formUsuario.Activate()
            End If

        End If

    End Sub

    Private Sub ListadoDeUsuariosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ListadoDeUsuariosToolStripMenuItem.Click

        If formUsuarioListado Is Nothing Then
            formUsuarioListado = New FormUsuarioListado()
            formUsuarioListado.MdiParent = Me
            formUsuarioListado.Show()
        Else

            If Not formUsuarioListado.Visible Then
                formUsuarioListado = New FormUsuarioListado()
                formUsuarioListado.MdiParent = Me
                formUsuarioListado.Show()
            Else
                formUsuarioListado.Select()
                formUsuarioListado.Activate()
            End If

        End If

    End Sub

    Private Function CargarProductosReporte() As DataTable

        Dim classController As New Class_RC_Controller.rc_Productos()

        Dim dt As New DataTable
        dt = classController.get_Productos_All(oiml.dbConn, 0, "", 0, False)

        If Not dt Is Nothing Then
            Return dt
        Else
            MessageBox.Show("Error: " & classController.MessageError.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return Nothing
        End If

    End Function
    Private Sub ReporteStockToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReporteStockToolStripMenuItem2.Click
        If frmRpts Is Nothing Then
            frmRpts = New FormReportes()
            'frmRpts.MdiParent = Me
            frmRpts.tipo_Reporte = "PRODUCTOSSTOCK"
            frmRpts.datos_Reporte = CargarProductosReporte()
            frmRpts.ShowDialog()
        Else

            If Not frmRpts.Visible Then
                frmRpts = New FormReportes()
                'frmRpts.MdiParent = Me
                frmRpts.tipo_Reporte = "PRODUCTOSSTOCK"
                frmRpts.datos_Reporte = CargarProductosReporte()
                frmRpts.ShowDialog()
            Else
                frmRpts.tipo_Reporte = "PRODUCTOSSTOCK"
                frmRpts.datos_Reporte = CargarProductosReporte()
                frmRpts.Select()
                frmRpts.Activate()
            End If

        End If
    End Sub


    Private Sub RegistrarpagosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RegistrarpagosToolStripMenuItem.Click

        If formPago Is Nothing Then
            formPago = New FrmPagos()
            formPago.MdiParent = Me
            formPago.Show()
        Else

            If Not formPago.Visible Then
                formPago = New FrmPagos()
                formPago.MdiParent = Me
                formPago.Show()
            Else
                formPago.Select()
                formPago.Activate()
            End If

        End If

    End Sub

    Private Sub ListadoDePagosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ListadoDePagosToolStripMenuItem.Click

        If formPagoListado Is Nothing Then
            formPagoListado = New FormPagosListado()
            formPagoListado.MdiParent = Me
            formPagoListado.Show()
        Else

            If Not formPagoListado.Visible Then
                formPagoListado = New FormPagosListado()
                formPagoListado.MdiParent = Me
                formPagoListado.Show()
            Else
                formPagoListado.Select()
                formPagoListado.Activate()
            End If

        End If

    End Sub


    Private Function CargarMaterialesReporte() As DataTable

        Dim classController As New Class_RC_Controller.rc_Materiales()

        Dim dt As New DataTable
        dt = classController.get_Materiales_All(oiml.dbConn, 0, "", False)

        If Not dt Is Nothing Then
            Return dt
        Else
            MessageBox.Show("Error: " & classController.MessageError.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return Nothing
        End If

    End Function

    Private Sub ReporteDeStockDeMaterialesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReporteDeStockDeMaterialesToolStripMenuItem.Click
        If frmRpts Is Nothing Then
            frmRpts = New FormReportes()
            'frmRpts.MdiParent = Me
            frmRpts.tipo_Reporte = "MATERIALESSTOCK"
            frmRpts.datos_Reporte = CargarMaterialesReporte()
            frmRpts.ShowDialog()
        Else

            If Not frmRpts.Visible Then
                frmRpts = New FormReportes()
                'frmRpts.MdiParent = Me
                frmRpts.tipo_Reporte = "MATERIALESSTOCK"
                frmRpts.datos_Reporte = CargarMaterialesReporte()
                frmRpts.ShowDialog()
            Else
                frmRpts.tipo_Reporte = "MATERIALESSTOCK"
                frmRpts.datos_Reporte = CargarMaterialesReporte()
                frmRpts.Select()
                frmRpts.Activate()
            End If

        End If
    End Sub

    'Private Function CargarFacturasVencidas() As DataTable

    '    Dim classController As New Class_RC_Controller.rc_Facturas()

    '    Dim dt As New DataTable
    '    dt = classController.get_FacturasVencidas_All(oiml.dbConn)

    '    If Not dt Is Nothing Then
    '        Return dt
    '    Else
    '        MessageBox.Show("Error: " & classController.MessageError.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    '        Return Nothing
    '    End If

    'End Function

    Private Sub FacturasVencidasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FacturasVencidasToolStripMenuItem.Click
        If formEstadoCuentaListado Is Nothing Then
            formEstadoCuentaListado = New FormEstadoCuentaListado()
            formEstadoCuentaListado.MdiParent = Me
            formEstadoCuentaListado.Show()
        Else

            If Not formEstadoCuentaListado.Visible Then
                formEstadoCuentaListado = New FormEstadoCuentaListado()
                formEstadoCuentaListado.MdiParent = Me
                formEstadoCuentaListado.Show()
            Else
                formEstadoCuentaListado.Select()
                formEstadoCuentaListado.Activate()
            End If

        End If

        'If frmRpts Is Nothing Then
        '    frmRpts = New FormReportes()
        '    'frmRpts.MdiParent = Me
        '    frmRpts.tipo_Reporte = "FACTURASVENCIDAS"
        '    frmRpts.datos_Reporte = CargarFacturasVencidas()
        '    frmRpts.ShowDialog()
        'Else

        '    If Not frmRpts.Visible Then
        '        frmRpts = New FormReportes()
        '        'frmRpts.MdiParent = Me
        '        frmRpts.tipo_Reporte = "FACTURASVENCIDAS"
        '        frmRpts.datos_Reporte = CargarFacturasVencidas()
        '        frmRpts.ShowDialog()
        '    Else
        '        frmRpts.tipo_Reporte = "FACTURASVENCIDAS"
        '        frmRpts.datos_Reporte = CargarFacturasVencidas()
        '        frmRpts.Select()
        '        frmRpts.Activate()
        '    End If

        'End If
    End Sub

    Private Sub FacturasDeComprasVencidasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FacturasDeComprasVencidasToolStripMenuItem.Click
        If FormComprasVencidasListado Is Nothing Then
            FormComprasVencidasListado = New FormComprasVencidasListado()
            FormComprasVencidasListado.MdiParent = Me
            FormComprasVencidasListado.Show()
        Else

            If Not FormComprasVencidasListado.Visible Then
                FormComprasVencidasListado = New FormComprasVencidasListado()
                FormComprasVencidasListado.MdiParent = Me
                FormComprasVencidasListado.Show()
            Else
                FormComprasVencidasListado.Select()
                FormComprasVencidasListado.Activate()
            End If
        End If
    End Sub

    Private Sub BackupToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BackupToolStripMenuItem.Click

        If formBK Is Nothing Then
            formBK = New FormBackup()
            formBK.MdiParent = Me
            formBK.Show()
        Else

            If Not formBK.Visible Then
                formBK = New FormBackup()
                formBK.MdiParent = Me
                formBK.Show()
            Else
                formBK.Select()
                formBK.Activate()
            End If
        End If

    End Sub

    Private Sub LOGsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LOGsToolStripMenuItem.Click

        If formLOG Is Nothing Then
            formLOG = New FormLogListado()
            formLOG.MdiParent = Me
            formLOG.Show()
        Else

            If Not formLOG.Visible Then
                formLOG = New FormLogListado()
                formLOG.MdiParent = Me
                formLOG.Show()
            Else
                formLOG.Select()
                formLOG.Activate()
            End If
        End If

    End Sub

    Private Sub RolesYFuncionesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RolesYFuncionesToolStripMenuItem.Click

        If formRolesFunciones Is Nothing Then
            formRolesFunciones = New FormRolesFuncionesUsuarios()
            formRolesFunciones.MdiParent = Me
            formRolesFunciones.Show()
        Else

            If Not formRolesFunciones.Visible Then
                formRolesFunciones = New FormRolesFuncionesUsuarios()
                formRolesFunciones.MdiParent = Me
                formRolesFunciones.Show()
            Else
                formRolesFunciones.Select()
                formRolesFunciones.Activate()
            End If
        End If

    End Sub

    Private Sub StockDeMaterialesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockDeMaterialesToolStripMenuItem.Click
        Dim classController As New Class_RC_Controller.rc_Movimientos()
        Dim dt As New DataTable
        dt = classController.get_Materiales_Deposito(oiml.dbConn)

        If frmRpts Is Nothing Then
            frmRpts = New FormReportes()
            frmRpts.tipo_Reporte = "MATERIALESDEPOSITO"
            frmRpts.datos_Reporte = dt
            frmRpts.ShowDialog()
        Else

            If Not frmRpts.Visible Then
                frmRpts = New FormReportes()
                frmRpts.tipo_Reporte = "MATERIALESDEPOSITO"
                frmRpts.datos_Reporte = dt
                frmRpts.ShowDialog()
            Else
                frmRpts.tipo_Reporte = "MATERIALESDEPOSITO"
                frmRpts.datos_Reporte = dt
                frmRpts.Select()
                frmRpts.Activate()
            End If

        End If
    End Sub

    
    
    Private Sub StockDeProductosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockDeProductosToolStripMenuItem.Click
        Dim classController As New Class_RC_Controller.rc_Movimientos()
        Dim dt As New DataTable
        dt = classController.get_Productos_Deposito(oiml.dbConn)

        If frmRpts Is Nothing Then
            frmRpts = New FormReportes()
            frmRpts.tipo_Reporte = "PRODUCTOSDEPOSITO"
            frmRpts.datos_Reporte = dt
            frmRpts.ShowDialog()
        Else

            If Not frmRpts.Visible Then
                frmRpts = New FormReportes()
                frmRpts.tipo_Reporte = "PRODUCTOSDEPOSITO"
                frmRpts.datos_Reporte = dt
                frmRpts.ShowDialog()
            Else
                frmRpts.tipo_Reporte = "PRODUCTOSDEPOSITO"
                frmRpts.datos_Reporte = dt
                frmRpts.Select()
                frmRpts.Activate()
            End If

        End If
    End Sub

    Private Sub VentasMensualesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VentasMensualesToolStripMenuItem.Click
        Try
            Dim classController As New Class_RC_Controller.rc_Facturas
            Dim dt As New DataTable
            dt = classController.get_Ventas_Mes(oiml.dbConn, 2013, 8)

            If Not dt Is Nothing Then

                If frmRpts Is Nothing Then
                    frmRpts = New FormReportes()
                    frmRpts.tipo_Reporte = "VENTASMES"
                    frmRpts.datos_Reporte = dt
                    frmRpts.ShowDialog()
                Else

                    If Not frmRpts.Visible Then
                        frmRpts = New FormReportes()
                        frmRpts.tipo_Reporte = "VENTASMES"
                        frmRpts.datos_Reporte = dt
                        frmRpts.ShowDialog()
                    Else
                        frmRpts.tipo_Reporte = "VENTASMES"
                        frmRpts.datos_Reporte = dt
                        frmRpts.Select()
                        frmRpts.Activate()
                    End If

                End If

            End If

        Catch ex As Exception
            MessageBox.Show("Error: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

    End Sub

    Private Sub ComprasMensualesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComprasMensualesToolStripMenuItem.Click
        Try
            Dim classController As New Class_RC_Controller.rc_Facturas
            Dim dt As New DataTable
            dt = classController.get_Compras_Mes(oiml.dbConn, 2013, 8)

            If Not dt Is Nothing Then

                If frmRpts Is Nothing Then
                    frmRpts = New FormReportes()
                    frmRpts.tipo_Reporte = "COMPRASMES"
                    frmRpts.datos_Reporte = dt
                    frmRpts.ShowDialog()
                Else

                    If Not frmRpts.Visible Then
                        frmRpts = New FormReportes()
                        frmRpts.tipo_Reporte = "COMPRASMES"
                        frmRpts.datos_Reporte = dt
                        frmRpts.ShowDialog()
                    Else
                        frmRpts.tipo_Reporte = "COMPRASMES"
                        frmRpts.datos_Reporte = dt
                        frmRpts.Select()
                        frmRpts.Activate()
                    End If

                End If

            End If

        Catch ex As Exception
            MessageBox.Show("Error: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try
    End Sub
End Class
